home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / patchfix / dbpatch / updnotic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-05  |  4.0 KB  |  116 lines
  1. VERSION 2.00
  2. Begin Form UpdateNotice 
  3.    BackColor       =   &H8000000F&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   6090
  6.    ClientLeft      =   4005
  7.    ClientTop       =   1395
  8.    ClientWidth     =   7305
  9.    ControlBox      =   0   'False
  10.    Height          =   6465
  11.    Left            =   3960
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   6090
  16.    ScaleWidth      =   7305
  17.    Top             =   1065
  18.    Width           =   7395
  19.    Begin SSPanel UpdateNoticeBak 
  20.       Align           =   1  'Align Top
  21.       Alignment       =   6  'Center - TOP
  22.       BackColor       =   &H8000000F&
  23.       BevelWidth      =   2
  24.       FontBold        =   -1  'True
  25.       FontItalic      =   0   'False
  26.       FontName        =   "Arial"
  27.       FontSize        =   10.5
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       Height          =   6090
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   7305
  35.       Begin CommandButton CommandBtn 
  36.          Cancel          =   -1  'True
  37.          Caption         =   "&Cancel"
  38.          Height          =   645
  39.          Index           =   1
  40.          Left            =   5655
  41.          TabIndex        =   2
  42.          Top             =   5235
  43.          Width           =   1185
  44.       End
  45.       Begin CommandButton CommandBtn 
  46.          Caption         =   "&Proceed"
  47.          Default         =   -1  'True
  48.          Height          =   645
  49.          Index           =   0
  50.          Left            =   495
  51.          TabIndex        =   1
  52.          Top             =   5220
  53.          Width           =   1185
  54.       End
  55.       Begin SSFrame Frame3D1 
  56.          Alignment       =   2  'Center
  57.          ForeColor       =   &H00000000&
  58.          Height          =   5100
  59.          Left            =   120
  60.          TabIndex        =   3
  61.          Top             =   30
  62.          Width           =   7065
  63.          Begin SSPanel UpdateListBak 
  64.             BackColor       =   &H8000000F&
  65.             BevelOuter      =   1  'Inset
  66.             BevelWidth      =   2
  67.             Height          =   2970
  68.             Left            =   165
  69.             TabIndex        =   5
  70.             Top             =   1905
  71.             Width           =   6735
  72.             Begin ListBox UpdateList 
  73.                FontBold        =   -1  'True
  74.                FontItalic      =   0   'False
  75.                FontName        =   "Courier New"
  76.                FontSize        =   9.75
  77.                FontStrikethru  =   0   'False
  78.                FontUnderline   =   0   'False
  79.                Height          =   2910
  80.                Left            =   30
  81.                TabIndex        =   6
  82.                Top             =   30
  83.                Width           =   6675
  84.             End
  85.          End
  86.          Begin Label Label1 
  87.             Alignment       =   2  'Center
  88.             BackStyle       =   0  'Transparent
  89.             Caption         =   "The database objects listed below will be added or updated as part of this patch.  If you do not want to continue with this process, click on ""Cancel"" now.  Otherwise, click on ""Proceed"" when you are ready to continue the patch process."
  90.             FontBold        =   -1  'True
  91.             FontItalic      =   0   'False
  92.             FontName        =   "Arial"
  93.             FontSize        =   11.25
  94.             FontStrikethru  =   0   'False
  95.             FontUnderline   =   0   'False
  96.             Height          =   1410
  97.             Left            =   450
  98.             TabIndex        =   4
  99.             Top             =   300
  100.             Width           =   6150
  101.          End
  102.       End
  103.    End
  104. Option Explicit
  105. Sub CommandBtn_Click (Index As Integer)
  106.    ProceedChoice = (Index = 0)
  107.    Me.Visible = False
  108. End Sub
  109. Sub Form_Load ()
  110.    ProceedChoice = False
  111.    CenterForm Me
  112. End Sub
  113. Sub Form_Unload (Cancel As Integer)
  114.    Set UpdateNotice = Nothing
  115. End Sub
  116.